! name: ajt19
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d


R=(0.055*0.055+(a/2-0.12)*(a/2-0.12))/0.11

resol 120

prism_   16, 0.045, 
    -a/2, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,

    
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1


addz -0.005

prism_ 10, 0.055,
    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,
    
    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.65, 15,
    -a/2+0.135, 0.65, 15,
    -a/2+0.135, 0.175, -1


R1=R-0.015
R2=R1-0.007

prism_ 12, 0.055,
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1,

    -a/2+0.135, 0.8, 15,
     a/2-0.135, 0.8, 15,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
    -a/2+0.135,b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.8, -1

del 1
addz 0.0125

 prism_ 10, 0.02,
    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.65, 15,
    -a/2+0.135, 0.65, 15,
    -a/2+0.135, 0.175, -1,


    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.615, 15,
    -a/2+0.17, 0.615, 15,
    -a/2+0.17, 0.21, -1

del 1


prism_   4, 0.045,
    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.615, 15,
    -a/2+0.17, 0.615, 15


addz 0.019

kx = -a/2+0.12+0.015+0.007
ky = 0.785+0.015+0.007

dx = (a-0.135*2-0.007*4) / 3
dy = (b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2)))-0.807-0.007*3)/4


for iy = 1 to 3 step 1

    for ix = 1 to 3 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        kx = kx+dx+0.007

    next ix

    kx = -a/2+0.12+0.015+0.007 

    ky = ky+dy+0.007

next iy

material mat2

prism_ 24+nsp/3, 0.007,
    -a/2+0.135, 0.8, 15,
     a/2-0.135, 0.8, 15,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
    -a/2+0.135,b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.8, -1,

    -a/2+0.142, 0.807+3*dy+3*0.007, 15,
    -dx/2-0.007, 0.807+3*dy+3*0.007, 15,
    -dx/2-0.007, b-0.12-R+(R2*cos(ASN((a/2-0.142-dx)/R2))), 79, 
     0, b-0.12-R, 900,
    -a/2+0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))),3079, 
    -a/2+0.142, 0.807+3*dy+3*0.007, -1,

    a/2-0.142, 0.807+3*dy+3*0.007, 15,
    dx/2+0.007, 0.807+3*dy+3*0.007, 15,
    dx/2+0.007, b-0.12-R+(R2*cos(ASN((a/2-0.142-dx)/R2))), 79, 
     0, b-0.12-R, 900,
    a/2-0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))),3079, 
    a/2-0.142, 0.807+3*dy+3*0.007, -1,

    -dx/2, 0.807+3*dy+3*0.007, 15,
     dx/2, 0.807+3*dy+3*0.007, 15,
     dx/2, b-0.12-R+(R2*cos(ASN((dx/2)/R2))), 79,
     0, b-0.12-R, 900,
    -dx/2, b-0.12-R+(R2*cos(ASN((dx/2)/R2))), 3079, 
    -dx/2, 0.807+3*dy+3*0.007, -1,
            

    use (nsp)

material mat1


for ii = 1 to 3*3 step 1

    prism_ 5, 0.007,
        get (15)

next ii

prism_ 6, 0.007,
    -a/2+0.142, 0.807+3*dy+3*0.007, 15,
    -dx/2-0.007, 0.807+3*dy+3*0.007, 15,
    -dx/2-0.007, b-0.12-R+(R2*cos(ASN((a/2-0.142-dx)/R2))), 79, 
     0, b-0.12-R, 900,
    -a/2+0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))),3079, 
    -a/2+0.142, 0.807+3*dy+3*0.007, -1

prism_ 6, 0.007,
    a/2-0.142, 0.807+3*dy+3*0.007, 15,
    dx/2+0.007, 0.807+3*dy+3*0.007, 15,
    dx/2+0.007, b-0.12-R+(R2*cos(ASN((a/2-0.142-dx)/R2))), 79, 
     0, b-0.12-R, 900,
    a/2-0.142, b-0.12-R+(R2*cos(ASN((a/2-0.142)/R2))),3079, 
    a/2-0.142, 0.807+3*dy+3*0.007, -1

prism_ 6, 0.007,
    -dx/2, 0.807+3*dy+3*0.007, 15,
     dx/2, 0.807+3*dy+3*0.007, 15,
     dx/2, b-0.12-R+(R2*cos(ASN((dx/2)/R2))), 79,
     0, b-0.12-R, 900,
    -dx/2, b-0.12-R+(R2*cos(ASN((dx/2)/R2))), 3079, 
    -dx/2, 0.807+3*dy+3*0.007, -1

del 1
addz 0.045
addy 0.95
addx -a/2+0.06

call "handle_1" mat2

addz -0.045
mulz -1

call "handle_1" mat2
